home *** CD-ROM | disk | FTP | other *** search
/ The Psychotron / The Psychotron.iso / psychorm / books / tbkmm.sbk (.txt) < prev   
Encoding:
Asymetrix ToolBook File  |  1993-03-11  |  23.6 KB  |  431 lines
  1. Tms Rmn
  2. Tms Rmn
  3. \D|D|
  4. O\D|D|%
  5. jwJpISimPjmIeAEos
  6.  BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM 
  7. tbkMCIchk cmd,notif,req,brk
  8. ZretVal
  9. sysErrorNumber 
  10. tbkmci(
  11. syserrornumber<>0 
  12. tbkmmerrorstring(
  13. tbkBitmapChk 
  14.         -- When 
  15. ]TBKBMP.DLL standalone, you should 
  16. modify 
  17.         -- function 
  18. use the bitmap 
  19.  reporter
  20. tbkbmperrorstring(
  21. brk<>
  22. --Cover functions 
  23. --These allow authors 
  24. pass 
  25. device alias instead 
  26. tbkMCIPositionWindow devAlias,windowPos,flags
  27. Zhwnd
  28. 9("status" && 
  29. 3 && "
  30. ","")
  31. tbkPositionWindow(
  32. tbkMCICenterWindow 
  33.  && "
  34. ","")
  35. tbkCenterWindow(
  36. tbkBitmapPositionWindow 
  37.  && "
  38. tbkBitmapCenterWindow 
  39.  && "
  40. tbkMCIGetWindowRect 
  41.  && "
  42. ","")
  43. tbkGetWindowRect(
  44. tbkBitmapGetWindowRect 
  45.  && "
  46. 4s_mminit
  47. tbkMMInitializeSystem 
  48.     -- guard against 
  49. 4having been restored!
  50. { <> 
  51. stuff used 
  52. Hwidgets
  53. X"tbkwin.dll"
  54. YieldApp()
  55.  <> 0
  56. "TBKWIN.
  57. xfound. Some 
  58. X may 
  59. xwork"
  60. X"tbkdlg.
  61. OpenDlg(
  62.  <> 0
  63. "TBKDLG.
  64. readdmm
  65. multimedia
  66. "winhelp.exe 
  67. .hlp"
  68. tbkmmdevices 
  69. 4s_mmdevices
  70. f("Multimedia") 
  71. c"Help" 
  72. -- stub so some 
  73.  will 
  74.  without ES boxes
  75. checkdevice
  76. -- General utility 
  77. -- Someday, ToolBook 
  78. Thave built-
  79. data type checking    
  80. isNumber x
  81. x + 0
  82. --repair 3D 
  83. resizing them
  84. sized
  85. Zsnap, txCN, hi, lo
  86. txClassName 
  87. ; <> 
  88. "Repair 3D 
  89. f"&Yes" 
  90. "&No"
  91. c"No"
  92. sysSuspendMessages 
  93. recessed 
  94. c"3DFrame"
  95. + 15, 
  96. + 15,\
  97. + 15, 
  98. "3DField"
  99. "3DRect"
  100. znothing
  101. - 15, 
  102. - 15,\
  103. - 15, 
  104. + 15, 
  105. + 15,\
  106. + 15, 
  107. -- Slider control 
  108. begins here
  109. -- NOTES ABOUT IDENTIFIERS
  110. -- s___ prefix     ->
  111. handler 
  112. only 
  113. c"Thumb"
  114. ___setSliderLimits 
  115. 4s___v, s___min, s___max, s___p
  116. down\
  117. prevent updating 
  118. mouse 
  119. xmoved
  120. "HSliderThumb"
  121. loc - 
  122. ___slidePos(
  123. "VSliderThumb"
  124. sliderPosition 
  125. ___snapSlider\
  126. (1 - 
  127. glide 
  128. width 
  129. height 
  130.  p, s1, s2
  131. b(0,(p - s1) /(s2 - s1))
  132. thumb 
  133.             -- Another 
  134. controlling 
  135. OldMin 
  136. OldMax 
  137. j(1,(
  138. b(0,p)))
  139. "vSliderThumb"
  140. pOffset 
  141. ) * (1-p)
  142. newPos 
  143. "hSliderThumb"
  144. ) * p
  145.             -- Restore state 
  146. detentList 
  147. detents
  148. catchRange 
  149. 0 <> 
  150. ends 
  151. -- This initialization usually 
  152. runs ONCE, unless 
  153. app calls
  154. tbkmmInitializeSystem 
  155. asure MME 
  156. loaded
  157. X"mmsystem.
  158. killtbkmmsbk 
  159.         -- 
  160. private (exported, but undocumented)
  161.     tbkmmloadextensions( )
  162.         -- The 
  163. these are 
  164. standard 
  165. L entry points
  166.     tbkmmversion()
  167.         -- MCI central interface
  168.         -- parallel 
  169. MMSYSTEM
  170.  tbkTimerStart( 
  171.     tbkTimerStop( 
  172.  tbkTimerCapability()
  173.         -- Utility 
  174. \    MilliSecFromMSF( 
  175. \    MilliSecFromHMS( 
  176. \    MilliSecFromSMPTE( 
  177.     MSFFromMilliSec( 
  178.     HMSFromMilliSec( 
  179.     SMPTEFromMilliSec( 
  180. -- Translation 
  181.         tbkMMTranslate( 
  182.  <> 0
  183. "TBKMM.
  184. link failed"
  185. extended 
  186. support
  187.  <> 0 
  188. -- End 
  189. Script
  190. addmm
  191. enterbook
  192. checkdevice
  193. multimedia
  194. sized
  195. buttonDown
  196. enterSystem
  197. buttonStillDown
  198. buttonUp
  199. author
  200. ___setSliderLimits
  201. readdmm
  202. tbkmmInitializeSystem
  203. nterWindow
  204. tbkBitmapChk
  205. tbkBitmapPositionWindow
  206. tbkBitmapCenterWindow
  207. tbkMCIchk
  208. tbkMCIGetWindowRect
  209. tbkBitmapGetWindowRect
  210. tbkMCIPositionWindow
  211. tbkmmdevices
  212. isNumber
  213. ___slidePos
  214. tbkMCICenterWindow
  215. sliderPosition
  216. ___snapSlider
  217. sliderPosition
  218. tbkMCIchk
  219. tbkmci
  220. tbkmmerrorstring
  221. retVal
  222. notif
  223. tbkBitmapChk
  224. tbkBitmap
  225. tbkmmerrorstring
  226. retVal
  227. tbkMCIPositionWindow
  228. status
  229. window handle
  230. tbkMCI
  231. tbkPositionWindow
  232. flags
  233. windowPos
  234. devAlias
  235. tbkMCICenterWindow
  236. status
  237. window handle
  238. tbkMCI
  239. tbkCenterWindow
  240. flags
  241. windowPos
  242. devAlias
  243. tbkBitmapPositionWindow
  244. status
  245. window
  246. tbkBitmap
  247. tbkPositionWindow
  248. flags
  249. windowPos
  250. devAlias
  251. tbkBitmapCenterWindow
  252. status
  253. window
  254. tbkBitmap
  255. tbkCenterWindow
  256. flags
  257. windowPos
  258. devAlias
  259. tbkMCIGetWindowRect
  260. status
  261. window handle
  262. tbkMCI
  263. tbkGetWindowRect
  264. flags
  265. devAlias
  266. tbkBitmapGetWindowRect
  267. status
  268. window
  269. tbkBitmap
  270. tbkGetWindowRect
  271. flags
  272. devAlias
  273. enterSystem
  274. tbkMMInitializeSystem
  275. s_mminit
  276. enterbook
  277. enterSystem
  278. tbkwin.dll
  279. YieldApp
  280. TBKWIN.DLL not found. Some widgets may not work
  281. tbkdlg.dll
  282. OpenDlg
  283.                     
  284. TBKDLG.DLL not found. Some widgets may not work
  285. P*readdmm
  286. s_mminit
  287. multimedia
  288. winhelp.exe tbkmm.hlp
  289. tbkmmdevices
  290. s_mmdevices
  291. author
  292. P*readdmm
  293. readdmm
  294. Multimedia
  295. &Multimedia
  296. checkdevice
  297. isNumber
  298. sized
  299. txClassName
  300. Repair 3D object after resizing?
  301. recessed
  302. recessed
  303. 3DFrame
  304. 3DField
  305. 3DRect
  306. recessed
  307. buttonDown
  308. txClassName
  309. Thumb
  310. o "___setSliderLimits
  311. buttonStillDown
  312. txClassName
  313. HSliderThumb
  314. ___slidePos
  315. VSliderThumb
  316. ___slidePos
  317. s___v
  318. s___min
  319. s___max
  320. s___p
  321. buttonUp
  322. txClassName
  323. HSliderThumb
  324. sliderPosition
  325. ___slidePos
  326. ___snapSlider
  327. VSliderThumb
  328. sliderPosition
  329. ___slidePos
  330. ___snapSlider
  331. s___v
  332. s___min
  333. s___max
  334. s___p
  335. ___setSliderLimits
  336. txClassName
  337. HSliderThumb
  338. txClassName
  339. VSliderThumb
  340. height
  341. width
  342. glide
  343. s___v
  344. s___min
  345. s___max
  346. ___slidePos
  347. sliderPosition
  348. sliderPosition
  349. group
  350. txClassName
  351. SliderThumb
  352. o "___setSliderLimits
  353. vSliderThumb
  354. hSliderThumb
  355. newPos
  356. pOffset
  357. OldMax
  358. OldMin
  359. thumb
  360. s___min
  361. s___max
  362. ___snapSlider
  363. detentList
  364. catchRange
  365. detents
  366. thumb
  367. tbkmmInitializeSystem
  368. mmsystem.dll
  369. mmsystem
  370. killtbkmmsbk
  371. tbkmm.dll
  372. tbkmmloadextensions
  373. tbkmmversion
  374. tbkmmerrorstring
  375. tbkMCI
  376. tbkTimerStart
  377. tbkTimerStop
  378. tbkTimerCapability
  379. MilliSecFromMSF
  380. MilliSecFromHMS
  381. MilliSecFromSMPTE
  382. MSFFromMilliSec
  383. HMSFromMilliSec
  384. SMPTEFromMilliSec
  385. tbkMMTranslate
  386. tbkGetWindowRect
  387. tbkPositionWindow
  388. tbkCenterWindow
  389. TBKMM.DLL link failed
  390. P*readdmm
  391. tbkmmloadextensions
  392. tbkmmerrorstring
  393. s_mminit
  394. s_mmdevices
  395. tbkmmversion
  396. DlgTitle
  397. Multimedia System Book
  398. DlgTitle
  399. Multimedia System Book
  400. author
  401. killtbkmmsbk
  402. "Microsoft Windows 
  403. fMultimedia 
  404. xpresent. No multimedia devices 
  405. widgets will work."
  406. itemnum( 
  407. I tmplist
  408. "Warning! Altering the 
  409. 8may cause 
  410. applications 
  411. f"Proceed" 
  412. "Cancel"
  413. kmmsbk
  414. killtbkmmsbk
  415. author
  416. itemnum
  417. killtbkmmsbk
  418. Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work.
  419. itemnum
  420. itemnum
  421. itemnum
  422. tbkmm.sbk
  423. tmplist
  424. author
  425. Warning! Altering the script for this system book may cause multimedia applications to break!
  426. Proceed
  427. Cancel
  428. Proceed
  429. 1<LOf
  430. OD<L<Lqf
  431.